home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / sread100.zip / SREAD.QES < prev   
Text File  |  1992-08-14  |  2KB  |  82 lines
  1. !
  2. ! Sread Version 1.00 Sample Script File
  3. ! (C)opyright 1992 by D2Software
  4. !
  5.  
  6. &NORMAL_ANSWERS = "SREAD.ANS"
  7. &ADULT_ANSWERS  = "ADULT.ANS"
  8.  
  9. $MAIN
  10.    ; 
  11.    ;@X0B1: @X0ESelection for accessing our adult section
  12.    ;@X0B2: @X0CExit back to the system
  13.    ;
  14.    ^MUL|$ADULT|$EXIT
  15.    $BOUNCE
  16.    ;
  17.    ^CLS
  18.    ^JPP|$MAIN
  19.  
  20. $EXIT
  21.    ^END
  22.  
  23. $ADULT
  24.    ;
  25.    ;@X0FThis information is used to gain access to our adult section.
  26.    ;
  27.    ^CHG|&ADULT_ANSWERS
  28.    ^JMP|$QRETURN|@FIRST@, are you 18 years of age or older?
  29.    ^GOSUB|$PERSONAL
  30.    ^GOSUB|$ADDRESS
  31.    ^JPP|$HAPPY
  32.  
  33. $HAPPY
  34.    ;
  35.    ^WRITEOFF
  36.    ^JMP|$QRETURN|@FIRST@, are you happy with your answers?
  37.    ^JPP|$QADJUST
  38.  
  39. $QADJUST
  40.    !
  41.    ! This routine is used if you want to reset the file pointer without
  42.    ! worrying about the details.
  43.    !
  44.    ;@X0CAnswer file updated.
  45.    ^ADJUST
  46.    ^WRITEON
  47.    ^JPP|$BOUNCE
  48.  
  49. $QRETURN
  50.    !
  51.    ! This routine is used to "force" a return from a subroutine!  This
  52.    ! will update the file pointer.
  53.    !
  54.    ;
  55.    ;@X0CAnswer file was not updated.
  56.    ^ABORT
  57.    ^WRITEON
  58.    ^JPP|$BOUNCE
  59.  
  60. $PERSONAL
  61.    ;
  62.    ;@X0B@FIRST@, we need to get your personal information.  This information is
  63.    ;@X0Bto cover our butts, and will remain totally confidential.  Failure to
  64.    ;@X0Bprovide this information will prevent you from having access to this
  65.    ;@X0Bsection.
  66.    ;
  67.    ^RETURN
  68.  
  69. $ADDRESS
  70.    \$$______________________
  71.    Please enter your first name only:
  72.    Please enter your last name only:
  73.    ;
  74.    %We need to know your street address.  You may include up to 5 lines.
  75.    %A blank line will end the data entry.
  76.    ^ASK|5
  77.    ;
  78.    \(###) ###-####
  79.    Please enter your phone number as (XXX) XXX-XXXX:
  80.    ^RETURN
  81.  
  82.